home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 May / 64er_Magazin_88-05_1988_Markt__Technik_de_Side_A.d64 / new colours.src (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  899b  |  57 lines
  1. 100 (NULL)
  2. 110 opt oo
  3. 120 *= $c000
  4. 130 cbasv = $d800
  5. 140 cbas1 = $c700
  6. 150 cbas2 = $cb00
  7. 160 sei
  8. 170 lda #<irqneu
  9. 180 sta $0314
  10. 190 lda #>irqneu
  11. 200 sta $0315
  12. 210 lda #$ff
  13. 220 sta $d012
  14. 230 lda $d011
  15. 240 and #%01111111
  16. 250 sta $d011
  17. 260 lda #%00000001
  18. 270 sta $d01a
  19. 280 lda #$7f
  20. 290 sta $dc0d
  21. 300 cli
  22. 310 rts
  23. 320 irqneu lda $d019
  24. 330 sta $d019
  25. 340 lda $d012
  26. 350 lda $02
  27. 360 beq erste
  28. 370 ldy #$00
  29. 380 loop1 lda cbas1,y
  30. 390 sta cbasv,y
  31. 400 lda cbas1 + $100 ,y
  32. 410 sta cbasv + $100 ,y
  33. 420 lda cbas1 + $200 ,y
  34. 430 sta cbasv + $200 ,y
  35. 440 lda cbas1 + $300 ,y
  36. 450 sta cbasv + $300 ,y
  37. 460 dey
  38. 470 bne loop1
  39. 480 lda #$00
  40. 490 sta $02
  41. 500 jmp $ea31
  42. 510 erste ldy #$00
  43. 520 loop2 lda cbas2,y
  44. 530 sta cbasv,y
  45. 540 lda cbas2 + $100 ,y
  46. 550 sta cbasv + $100 ,y
  47. 560 lda cbas2 + $200 ,y
  48. 570 sta cbasv + $200 ,y
  49. 580 lda cbas2 + $300 ,y
  50. 590 sta cbasv + $300 ,y
  51. 600 dey
  52. 610 bne loop2
  53. 620 lda #$ff
  54. 630 sta $02
  55. 640 jmp $ea31
  56. 0 
  57.